home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 20 / NIKKEI-MAC-CD-VOL-20-1998-12.ISO.7z / NIKKEI-MAC-CD-VOL-20-1998-12.ISO / オンラインソフト / 5.文書作成支援 / UltraFind / UltraFind 2.5.3 Full Pack.sit / UltraFind 2.5.3 Full Package / AppleScript™ Examples / UF by Date < prev    next >
Text File  |  1997-06-22  |  2KB  |  65 lines
  1. set FileInfo to ""
  2.  
  3. tell application "UltraFind 2.5.3"
  4.     clear
  5.     
  6.     set the dateModified of its searchRoutine to "today"
  7.     
  8.     --other examples : 
  9.     --(NOTE: use short date in LOCAL format, i.e. UK = DAY/MONTH/YEAR, but US = MONTH/DAY/YEAR, etc.)
  10.     --    set the dateModified of its searchRoutine to "before 1/1/96"
  11.     --    set the dateModified of its searchRoutine to "after 1/1/96"
  12.     --    set the dateModified of its searchRoutine to "between 1/1/96 10/1/96"
  13.     --    set the dateCreated of its searchRoutine to "on 1/1/96"
  14.     
  15.     scan
  16.     if the result is greater than 0 then
  17.         changeView finderView
  18.         sort by date last modified
  19.     end if
  20.     
  21. end tell
  22. copy the result to numFiles
  23.  
  24. if numFiles is greater than 0 then
  25.     repeat with fileNum from 1 to numFiles
  26.         
  27.         tell application "UltraFind 2.5.3"
  28.             copy (the filenamed of fileRecord fileNum) to fName
  29.         end tell
  30.         
  31.         set FileInfo to FileInfo & fName & return
  32.     end repeat
  33. end if
  34.  
  35.  
  36. -- ---------------------------------------------------------------------
  37. -- OUTPUT
  38. -- In this example a Scriptable Text Editor is used
  39. -- you should replace this with the application you want the information output to.
  40. -- ---------------------------------------------------------------------
  41.  
  42.  
  43. tell application "Scriptable Text Editor"
  44.     activate
  45.     make new document at beginning
  46.     set size of selection to 10
  47.     set selection to "-----------------------------------------------------------
  48. " & numFiles & " files modified today
  49. -----------------------------------------------------------
  50. " & FileInfo
  51.     
  52.     save document 1 in file "Modified Files List"
  53. end tell
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.